home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / icpr20c.arc / STEP201.CMD < prev    next >
OS/2 REXX Batch file  |  1987-07-09  |  3KB  |  130 lines
  1. ; This file was created using MAKESTEP from the package ICPR20
  2. ; designed by Wayne Wolf.  ICPR20 Copyright 1987
  3. ; You may modify this file in any way you wish but since the make
  4. ; files utilize the existing cmd files I discourage it.  If you have
  5. ; comments or useful modifications please contact me, either at
  6. ; unix: ww@ufcsg.ufl.edu  or bbs: PC-EXCHANGE at 404-977-6686.
  7. Page1:
  8.   Clear
  9.   Message "Menu of Bulletin Boards for the 201 area."
  10.   Message "██████████████████████████████████████████████████████████████████████████████"
  11.   Locate 22,15
  12.   Message "          "
  13.   Locate 0,45
  14.   Message "Mode:"
  15.   Locate 0,51
  16.   Find S7 "H"
  17.   IF Found
  18.      Message "Hayes"
  19.   ELSE
  20.      Message "Racal"
  21.   ENDIF
  22.   Locate 0,60
  23.   Message "Redial:"
  24.   Locate 0,68
  25.   Find S8 "A"
  26.   IF Found
  27.      Message "Active"
  28.   ELSE
  29.      Message "Inactive"
  30.   ENDIF
  31.   Locate 2,0
  32.   Message " 1 --> Hotel California (327-8245)"
  33.   Message " 2 --> Computer Nookery (423-4258)"
  34.   Message " 3 --> The Kitchen (752-2820)"
  35.   Message " 4 --> Rutgers Gold Vax (932-4420)"
  36.   Message "D  --> Disconnect and exit to area code dialer     S  --> Switch modes"
  37.   Message "E  --> Execute ICPR20 from within Procomm          R  --> Toggle Redial mode "
  38.   Locate 22,0
  39.   Message "Your Choice -->"
  40.   Goto Retype1
  41. ;
  42. Retype1:
  43.   Locate 22,15
  44.   Get S3
  45.   Switch S3
  46.       Case "E"
  47.          EndSwitch
  48.          Execute "Make.cmd"
  49.       EndCase
  50.       Case "R"
  51.          EndSwitch
  52.          Goto Activate
  53.       EndCase
  54.       Case "S"
  55.          EndSwitch
  56.          Goto Switch
  57.       EndCase
  58.       Case "M"
  59.          Clear
  60.          Message "Manual dial for area "
  61.          Locate 0,21
  62.          Message S2
  63.          Message "What number do you wish to dial --> "
  64.          Locate 1,36
  65.          Get S6
  66.          Assign S5 "Manual dialing."
  67.          Execute "Dial"
  68.       EndCase
  69.       Case "D"
  70.          Execute "Discnect"
  71.       EndCase
  72.       Case "1"
  73.          Assign S5 "Dialing Hotel California at 327-8245."
  74.          Assign S6 "3278245"
  75.          Execute "Dial"
  76.       EndCase
  77.       Case "2"
  78.          Assign S5 "Dialing Computer Nookery at 423-4258."
  79.          Assign S6 "4234258"
  80.          Execute "Dial"
  81.       EndCase
  82.       Case "3"
  83.          Assign S5 "Dialing The Kitchen at 752-2820."
  84.          Assign S6 "7522820"
  85.          Execute "Dial"
  86.       EndCase
  87.       Case "4"
  88.          Assign S5 "Dialing Rutgers Gold Vax at 932-4420."
  89.          Assign S6 "9324420"
  90.          Execute "Dial"
  91.       EndCase
  92.       Default
  93.          Message " "
  94.          Message "Invalid choice, please retype"
  95.          Locate 22,15
  96.          Message "          "
  97.          Goto Retype1
  98.       EndCase
  99.   EndSwitch
  100. ;
  101. Switch:
  102.   Find S7 "R"
  103.   IF Found
  104.      Tran "I!"
  105.      Pause 2
  106.      Tran "ATZ!"
  107.      Assign S7 "H"
  108.      Rflush
  109.   ELSE
  110.      Tran "ATZ I!"
  111.      Pause 2
  112.      Tran "!"
  113.      Assign S7 "R"
  114.      Rflush
  115.   ENDIF
  116.   Pause 3
  117.   Rflush
  118.   Goto Page1
  119. ;
  120. Activate:
  121.   Find S8 "A"
  122.   IF Found
  123.      Assign S8 "I"
  124.   ELSE
  125.      Assign S8 "A"
  126.   ENDIF
  127.   Goto Page1
  128. ;
  129. Exit
  130.